home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 January & February / rerun-1987-01-02.d64 / notepad 1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  46 lines
  1. 72 rem 64 notepad patch #1
  2. 73 rem save and load windows
  3. 74 rem digital time display
  4. 75 rem
  5. 76 print"wait...":mem=50636:a=51268:fori=0to419:read by
  6. 77 if by >255 then print"error in line:"peek(63)+peek(64)*256:end
  7. 78 poke mem+i,by:cs=cs+by:next
  8. 79 if cs <> 49979 then print"checksum bad, check all data.":end
  9. 80 poke a,76:poke a+1,0:poke a+2,198:poke 51287,236
  10. 81 print:print"ok, set the time."
  11. 82 input"  hours";t(1):ift(1)>12then82
  12. 83 input"minutes";t(2):ift(2)>59then83
  13. 84 fori=1to3:h=int(t(i)/10):l=t(i)-10*h:t(i)=16*h+l:next
  14. 85 c=56587:pokec+4,peek(c+4)and127
  15. 86 fori=0to3:pokec-i,t(i+1):next
  16. 87 data 173,11,221,162,0,72,41,16,160,2,208,12,169,186
  17. 88 data 157,182,7,185,9,221,232,72,41,240,74,74,74,74
  18. 89 data 24,105,176,157,182,7,232,104,41,15,24,105,176,157
  19. 90 data 182,7,232,136,16,220,173,8,221,96,32,204,197,32
  20. 91 data 11,202,165,197,201,3,240,7,201,4,240,3,76,71
  21. 92 data 200,72,169,0,133,253,133,198,133,157,141,109,199,169
  22. 93 data 54,133,1,32,59,201,32,117,201,32,16,201,162,35
  23. 94 data 32,23,199,104,201,4,240,17,162,0,32,152,198,169
  24. 95 data 1,133,185,169,0,32,213,255,76,89,198,162,10,32
  25. 96 data 152,198,160,186,132,254,162,0,160,189,169,253,32,216
  26. 97 data 255,144,4,201,5,240,45,32,59,201,169,8,32,180
  27. 98 data 255,169,111,133,185,32,150,255,32,165,255,201,13,240
  28. 99 data 6,32,210,255,76,110,198,32,171,255,162,20,32,23
  29. 100 data 199,32,228,255,240,251,201,13,208,247,32,204,255,32
  30. 101 data 16,201,32,141,201,76,49,200,32,23,199,164,204,240
  31. 102 data 8,164,211,177,209,9,128,145,209,32,225,255,208,5
  32. 103 data 104,104,76,143,198,32,228,255,240,229,201,13,240,41
  33. 104 data 201,20,240,70,174,109,199,224,14,240,214,201,127,176
  34. 105 data 210,201,32,144,206,201,34,240,202,172,109,199,153,112
  35. 106 data 199,238,109,199,32,210,255,32,59,201,76,155,198,173
  36. 107 data 109,199,240,196,24,105,2,162,110,160,199,32,189,255
  37. 108 data 169,8,133,186,32,59,201,169,13,32,210,255,169,29
  38. 109 data 32,210,255,96,174,109,199,240,146,206,109,199,162,70
  39. 110 data 32,59,201,32,23,199,76,155,198,189,35,199,240,6
  40. 111 data 32,210,255,232,208,245,96,29,76,79,65,68,58,32
  41. 112 data 78,46,0,29,83,65,86,69,58,32,78,46,0,13
  42. 113 data 29,80,82,69,83,83,32,82,69,84,85,82,78,0
  43. 114 data 13,29,32,32,32,32,32,32,32,32,32,18,78,79
  44. 115 data 84,69,80,65,68,32,87,79,82,75,32,83,67,82
  45. 116 data 69,69,78,146,13,13,0,157,32,157,0,0,78,46
  46.